불확실을 감안한 분석 set.seed(1) N <- 1000 gene <- rnorm(N) power <- gene + (e1 = rnorm(N)) height <- 180 + 5*gene + (e2 = rnorm(N)) ability <- power + height/10 + (e3 = rnorm(N)) summary(lm(ability ~ height)) # 예측 모형 ## ## Call: ## lm(formula = ability ~ height) ## ## Residuals: ## Min … 내생성: 베이지안 분석 계속 읽기